﻿Public Class FrmRegistrarMusculo

    Private Sub btnSiguiente_Click(sender As Object, e As EventArgs) Handles btnSiguiente.Click
        Dim nombre As String = txtNombre.Text
        Dim irrigacion As String = txtIrrigacion.Text
        Dim origen As String = txtOrigen.Text
        Dim insercion As String = txtInsercion.Text
        Dim inervacion As String = txtInervacion.Text

        objGestor.registrarMusculo(nombre, irrigacion, origen, insercion, inervacion)
        For Each control As frmConsultarMusculos In FrmPrincipal.paneForm.Controls.OfType(Of frmConsultarMusculos)()

            control.lista = objGestor.listarMusculos()
            control.tblMusculos.DataSource = control.lista
        Next
        frmTransparente.Close()
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        frmTransparente.Close()
        Me.Hide()
    End Sub
End Class
